home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / misc / math / mdlgraph1.1.lha / ModuleGrapher / Source / includes / modules.i < prev    next >
Encoding:
Text File  |  1998-10-02  |  3.5 KB  |  118 lines
  1.  
  2. ;(C)1998 Module-Grapher, Stuart Reeves
  3. ;graph/formula module include
  4. ;$VER: 0.9
  5.  
  6. grpmdl$="Lissajous|Epicycloid|Epitrochoid|Involute|Trochoid"
  7.  
  8. ;...................................graph modules
  9.                                     ;in form - formula, hlptxt, var setup
  10. Macro grp_0                         ;lissajous
  11.   !t:\x=Sin(\a*\t):\y=Sin(\b*\t)
  12. End Macro
  13. grp_0txt$="'Lissajous Figure' module, of the form: x=sin[at], y=sin[bt]"
  14. Macro grp_0vars
  15.   \x_mul=w\grpwid/3,w\grphgt/3
  16.   \x_off=w\grpwid/10,w\grphgt/10
  17. End Macro
  18.  
  19. Macro grp_1                         ;epicycloids
  20.   !t:\x=(\a+\b)*Cos(\t)-\a*Cos((\t*(\a+\b))/\a)
  21.   \y=(\a+\b)*Sin(\t)-\a*Sin((\t*(\a+\b))/\a)
  22. End Macro
  23. grp_1txt$="'Epicycloid' module, of the form: x=(a+b)cos[t]-a(cos[(at+bt)/a]), y=(a+b)sin[t]-a(sin[(at+bt)/a])"
  24. Macro grp_1vars
  25.   \x_mul=w\grpwid/30,w\grphgt/30
  26.   \x_off=w\grpwid/2.5,w\grphgt/2.3
  27. End Macro
  28.  
  29. Macro grp_2                         ;epitrochoids
  30.   !t:\x=(\a+\b)*Cos(\t)-\c*Cos((\a+\b)*(\t/\a))
  31.   \y=(\a+\b)*Sin(\t)-\c*Sin((\a+\b)*(\t/\a))
  32. End Macro
  33. grp_2txt$="'Epitrochoid' module, of the form: x=(a+b)cos[t]-c(cos[(at+bt)/a]), y=(a+b)sin[t]-c(sin[(at+bt)"
  34. Macro grp_2vars
  35.   \x_mul=w\grpwid/30,w\grphgt/30
  36.   \x_off=w\grpwid/2.5,w\grphgt/2.3
  37. End Macro
  38.  
  39. ;Macro grp_3                         ;astroids
  40. ;  !t:\x=\a*((Cos(\t))^3):\y=\a*((Sin(\t))^3)
  41. ;End Macro
  42. ;grp_3txt$="'Astroid' module, of the form: x=a(cos^3[t]), y=a(sin^3[t])"
  43. ;Macro grp_3vars
  44. ;  \x_mul=w\grpwid/30,w\grphgt/30
  45. ;  \x_off=w\grpwid/6,w\grphgt/6
  46. ;End Macro
  47.  
  48. ;Macro grp_4                         ;tractrices
  49. ;  !t:\x=\a*(\t-HTan(\t)):\y=\a*(1/HCos(\t))
  50. ;End Macro
  51. ;grp_4txt$="'Tractrice' module, of the form: x=a(t-tanh[t]), y=a(sech[t])"
  52. ;Macro grp_4vars
  53. ;  \x_mul=w\grpwid/30,w\grphgt/30
  54. ;  \x_off=w\grpwid/6,w\grphgt/6
  55. ;End Macro
  56.  
  57. Macro grp_5                         ;involutes
  58.   !t:\x=\a*(Cos(\t)+\t*Sin(\t)):\y=\a*(Sin(\t)-\t*Cos(\t))
  59. End Macro
  60. grp_5txt$="'Involute' module, of the form: x=a(cos[t]+t(sin[t])), y=a(sin[t]-t(cos[t]))"
  61. Macro grp_5vars
  62.   \x_mul=w\grpwid/30,w\grphgt/30
  63.   \x_off=w\grpwid/2.5,w\grphgt/2.3
  64. End Macro
  65.  
  66. ;Macro grp_6                         ;cycloids
  67. ;  !t:\x=\a*(\t-Sin(\t)):\y=\a*(1-Cos(\t))
  68. ;End Macro
  69. ;grp_6txt$="'Cycloid' module, of the form: x=a(t-sin[t]), y=a(1-cos[t])"
  70. ;Macro grp_6vars
  71. ;  \x_mul=w\grpwid/30,w\grphgt/30
  72. ;  \x_off=w\grpwid/2.5,w\grphgt/2.3
  73. ;End Macro
  74.  
  75. Macro grp_7                         ;trochoids
  76.   !t:\x=\a*\t-\b*Sin(\t):\y=\a-\b*Cos(\t)
  77. End Macro
  78. grp_7txt$="'Trochoid' module, of the form: x=at-b(sin[t]), y=a-b(cos[t])"
  79. Macro grp_7vars
  80.   \x_mul=w\grpwid/30,w\grphgt/30
  81.   \x_off=w\grpwid/2.5,w\grphgt/2.3
  82. End Macro
  83.  
  84.  
  85. frcmdl$="x=x^2/(x-c)|x=1/x(1-c)|x=(1-x)/cx+1|x=(x+c)(1-cx)|x=ln(x+c)|x=cx+1/c|x=x^2+cx-c"
  86.  
  87. ;...................................iterative fml modules
  88.  
  89. Macro frc_0:\x=(\x*\x)/(\x-\c):End Macro
  90. frc_0txt$="x=x^2/(x-c)"
  91. Macro frc_0vars:\x_min=-40,40,-40,40:End Macro
  92.  
  93. Macro frc_1:\x=1/(\x*(1-\c)):End Macro
  94. frc_1txt$="x=1/x(1-c)"
  95. Macro frc_1vars:\x_min=-5,5,-5,5:End Macro
  96.  
  97. Macro frc_2:\x=(1-\x)/(\x*\c)+1:End Macro
  98. frc_2txt$="x=(1-x)/cx+1"
  99. Macro frc_2vars:\x_min=-1,1,-1,1:End Macro
  100.  
  101. Macro frc_3:\x=(\x+\c)*(1-\c*\x):End Macro
  102. frc_3txt$="x=(x+c)(1-cx)"
  103. Macro frc_3vars:\x_min=-8,8,-8,8:End Macro
  104.  
  105. Macro frc_4:\x=Log(\x+\c):End Macro
  106. frc_4txt$="x=ln(x+c)"
  107. Macro frc_4vars:\x_min=-5,5,-5,5:End Macro
  108.  
  109. Macro frc_5:\x=\c*\x+1/\c:End Macro
  110. frc_5txt$="x=cx+1/c"
  111. Macro frc_5vars:\x_min=-5,5,-5,5:End Macro
  112.  
  113. Macro frc_6:\x=\x*\x+\c*\x-\c:End Macro
  114. frc_6txt$="x=x^2+cx-c"
  115. Macro frc_6vars:\x_min=-10,10,-10,10:End Macro
  116.  
  117.  
  118.